home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 33 / Amiga Format AFCD33 (Issue 117, Dec 1998).iso / -seriously_amiga- / programming / e / kyz_obj / test / datetest.e < prev    next >
Text File  |  1998-09-14  |  430b  |  29 lines
  1. MODULE '*datestring', 'dos/datetime'
  2.  
  3. PROC main()
  4.   DEF d:PTR TO datestring
  5.  
  6.   NEW d.new()
  7.   WriteF('\s \s \s\n', d.day, d.date, d.time)
  8.   END d
  9.  
  10.   Delay(50)
  11.  
  12.   NEW d.new(FORMAT_INT)
  13.   WriteF('\s \s \s\n', d.day, d.date, d.time)
  14.   END d
  15.  
  16.   Delay(50)
  17.  
  18.   NEW d.new(FORMAT_USA)
  19.   WriteF('\s \s \s\n', d.day, d.date, d.time)
  20.   END d
  21.  
  22.   Delay(50)
  23.  
  24.   NEW d.new(FORMAT_CDN)
  25.   WriteF('\s \s \s\n', d.day, d.date, d.time)
  26.   END d
  27.  
  28. ENDPROC
  29.